


































Thus, the purpose of this p 
relying deeply on Introspective 
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I have been constructing a prograa called "HACKEE* which writes 
and debugs programs in the HOCKS world. It currently shows signs of 
life, writing some elementary programs by debugging and patching. The 
program HACKER as well as the programs it operates or are written in 
CONNIVES. 

The physics of the BLOCKS world is as follows: there are blocks 

the hand cannot lift a block if there are others on it. A block can only 
le placed on another if there is enough space on the other. Here we 

introduce one primitive which moves blocks in this world. (RHON A B) 

puts block A on block B if A's top is clear and B has space for A on it, 

FUTON just as I don't think about CONS. HACKER does, however, know about 

HACKER starts out with one well-commented but very limited program to 


(IE-NEEDED I-F-ON (IMPERATIVE-FOR (ON !(X (ATOM !,X)) I(Y (ATOM !,!)))) 
(NEEES (AND (CLEARTOP !,X) (SPACE-EOR ! ,X !,!)) 

(POTON X Y)) 

(ADIEU 'OK)) 









This program is called by pattern-directed invocation; if ve need an 
imperative for getting atonic object X (not a tower) on an atonic object 
1, it is called. Its body consists of a call to FUTON conmentod by its 
prerequisites. The (ADIEU 'OK) inform the caller of success. 


HACKEE also knows: 


(IE-NEEDED M-O-CLEARTOF 

(MEANING-OF (CLEARTOF !*X) 

(NOT (EXISTS !,(¥ (GENSYM)) 

(ON !,X !,X))» 


(NOTE)) 


i.e. eleortop(x)= "l3y A on(y,x) 

(IF-NEEDED S-F-KOT-OM 

(SUFFICES-FOR (NOT (ON I'X !*!)) 

(EXISTS !,(Z (GENSYM)) 

(WHERE (ON !,X !,Z) (NOT (= I ,Z l,Y))))) 

(NOTE)) 

i.e. 3 z^y on(x,s)=>-ion(x,y) 

^Urther concepts will be introduced as needed. In section II (Heuristic 
Programing) we will deal with nore difficult concepts concerned with 




,*)» 


(IF-NEEDED I-F-ON (IMPERATIVEJ-FOR (ON ! (X (ATOM ,X)) !(Y (ATOM 
(SETUP (CODE-FOR (AND (CLEARTOP !,X) (SPACE-TOR !,X !,Y)) 

(PROO "AUX* ((PROTECTEDS NIL)) 

(PROO (ACHIEVE (CLEARTOP l,X)) 

(PROTECT (CLEARTOP !,X))) 

(PROO (ACHIEVE (SPACE-TOR ! ,X l,Y)) 

(PROTECT (SPACE-TOR !,X !,Y))) 
(UNPROTECT PROTECTEDS))) 

(FUTON X Y») 

SETUP Is a comment explaining the reasons for the code written; to setup 
for (PUTON X Y). CODE-TOR is a comment explaining that its second 

binds a variable PROTECTEDS and initializes it to NIL. It then achieves 
and protects each subgoal, unprotecting them before leaving. Protection 
is a mechanism for catching bugs of interaction between subgoals (to be 
explained later). 

This code was generated by a process I call pattern-directed 
macro-expansion from a macro in HACKER'S bag of coding tricks. (The 
concepts of a "bag of tricks 11 is due to Richard Creenblatt). This trick 
is fairly complex and looks like: 






(IP-NEEDED C-P-AND (CODE-TOR (AND . t'L) I!CODE) 

"AUX" <(P Nil)) 

(FOR-EACH-ELEMENT C L 

(CSFTQ P (CONS (LIST 'PROC (LIST 'ACHIEVE 0) 

(LIST 'PROTECT 0)) 

P)» 

(CSETQ CODE (APPEND '(PROG "AUX" ((PROTECTEES NIL))) 

(REVERSE P) 

'((UNPROTECT PROTECTEES)))) 

(NOTE)) 

The coaplexity stess Proa the ability to code for AND of any number of 

(SETUP...). He gets to (ACHIEVE (CLEARTOP !.X)) before running into 
trouble. (CLEARTOP A) is not true so he looks for an imperative for 
cleartop. Not finding any he realizes it's ties to write some code. 
Finding M-O-CLEARTOP he sees that CLEARTOP is a defined concept and thus 
he writes, by pattern-directed sacro-expansloni 

(IP-NEEDED (IMPERATIVE-TOR (CLEARTOP IX)) 

(MEANING-OP (CLEARTOP I.X) 

(ACHIEVE (NOT (EXISTS Z1 (ON Z1 
(ADIEU 'OK)) 


M»»> 



HACKER then runs the new Imperative but he needs to achieve the not 
exists expression. It is not yet true, has no Imperative, has no 
explicit meaning, but ve have a trick for this case: 

(IF-NEEDH) (CODE-fOR (HOT (EXISTS !V !'0)) 

(TOR-EACH !,V 1101 

(ACHIEVE (NOT !!02)))) 

(CSETQ 01 (SUBS! (LIST '/I V) V 0) 

02 (SUBST (LIST '/!/, V) V 0)) 

(NOTE)) 


Thus ve expand the ACHIEVE, patching to get: 

(IF-NEEDED (IMPERATIVE-TOR (CLEARTOP !X)) 

(MEANINO-OF (CLEARTOP ! ,X) 

(CODE-FOR (NOT (EXISTS Z1 (ON Z1 !,X))) 

(FOR-EACH Z1 (OH !Z1 ! ,X) 

(ACHIEVE (NOT (ON !,Z1 !,X)))))) 

(ADIEU 'OK)) 

FOR-FACH is a canned loop commonly found in CONNIVES programs. This code 
is run until it hits the expression (ACHIEVE (NOT (ON !,Z1 !,X)). Here 


S-F-NOT-ON getting: 



(IF-NEEDED (IMPERATIVE -FOR (CLEARTOP !X)) 

(MEAMNG-OF (CLEARTOP 1 ,X) 

(CODE-TOR (MOT (EXISTS Z1 (OK Z1 !,X))) 

(TOR-EACH Z1 (ON !Z1 !,X) 

(SUFFICES-TOR (MOT (OH !,Z1 l,X)) 

(ACHIEVE (EXISTS Z2 

(WHERE (ON !,Z1 ! ,Z2) 

(MOT (= !,Z2 !»X)))))) 

(ADIEU 'OK)) 

We run this new code until we have to expend the expression (ACHIEVE 
(EXISTS ...)). Here we need the trick: 

(IF-NEEDED (CODE-TOR (EXISTS !V (VHEEE !'G !'Q)) 

(PROG "AUX" (!,V) 

(CHOOSE !,V !,Q (POSSIBLE !,G)) 

(ACHIEVE !,G))) 

(MOTE)) 

Thus we get: 



(IP-NEEDED (IHPESATIVB-iOR (CLEARTOP !X)) 

(MEAKING-OF (CLEARTOP !,X) 

(CODE-TOR (HOT (EXISTS Z1 (on Z1 !,X))) 

(TOR-EACH Z1 (OH !Z1 l,X) 

(SUFFICES-TOR (HOT (OH !,Z1 !,X)) 

(CODE-TOR (EXISTS Z2 (WHERE (OH !,Z1 !,Z2) 

(HOT (. 1 ,Z2 1 »X)))) 

(PROG -AUX- (Z2) 

(CHOOSE Z2 (HOT (. !,Z2 !,X)) 

(TOSSIBLE (OH l,Z1 !,Z2))) 
(ACHIEVE (OH !,Z1 !,Z2)))))))) 


(ADIEU 'OK)) 


This code runs, CHOOSE (by angle of its own) makes Z2=TA£LE. (ACHIEVE 
(OH C TABLE)) (remember Z1-C) finds I-F-OH and calls It recursively, 
solving the problem. 

Note that by just running this specific example ve get I-F-OH 
patched for situations where X is not CLEARTOP and a completely general 
CLEARTOP routine which not only solves this specific case but also any 
recursively or iteratively complex example. E.g. the performance program 
can now, without modification achieve (CLEARTOP A) in: 






Note also that the knowledge used In writing this program is divided into 
two Independent classes: 

1) Knowledge of the proglea donain: 

I-F-ON, H-O-CLEARTOP, S-F-KOT-ON 

2) Doaain independent prograaaing knowledge: 
l.e. all CODE-FOR aethods. 

It is ay hope and honest belief, that almost all "programming" knowledge 
can fce coded into a snail nun ter (perhaps 50) coding tricks. New problem 
donain dependent knowledge can be easily added; for instance, I can 
define the concept of a 3-tower as: 

(IF—NEEDED (HEANING-OF (3-TOWH) !'X ! 'Y !'Z) 

(AND (ON !,X !,X) (ON ! ,Y !,Z)))) 





Programing 

r we have been dealing with vell-de 


definition), 


















(IF-NEEDED M-H-SPACB-PDfi-1 

(HAY-HURT (SPACB-fOR !'X !'Y) (CLUTTERED !,Y)> 

(NOTE)) 

(IP-NEEDED M-O-CLUTTERED 

(KEANINO-OP (CLUTTERH) !*X) 

(EXISTS !,(Y (CENSYM)) (WHERE (ON ! ,Y !,X) 

(NOT (PROTECTED (ON !,Y !,X)))))) 

(NOTE)) 

(IF-NEEDED M-H-SPACE-FOR-2 

(MAY-HURT (SPACE-FOR !*X I'Y) (HAPHAZARD !,Y)) 

(NOTE)) 

(IF-NEEDED H-O-HAPHAZARD 
(MEANINO-OF (HAPHAZARD !'X) 

(EXISTS !,(Y (GENSYH)) (WHERE (BADLY-PLACED !,Y !,X) 

(ON !,Y !,X))» 

(NOTE)) 

(IF-NEEDED O-F-NOT-WHERE 

(CODE-FOR (NOT (WHERE !'X !'Y)) (ACHIEVE (NOT !,X))) 

(NOTE)) 



failure. Since this is an uncertain situation (as triggered by MAY-HURT) 
it gets ccspiled into a very special piece of code using a function 
•STRATEGY—FOR. Also, since SPACB-FOR is a naaed concept (like CLEARTOP) ve 
Fake an imperative for its 

(IF-NEEDED (IKPERATIVB-FOR (SPACB-FOR !X 1Y)) 

(STRATEOY-FOR (SPACB-FOR !,X !,Y) 

(ACHIEVE (NOT (CLUTTERED !,Y)))) 

(ADIEU 'OK)) 

is then expanded (by straight pattersv-dlrected macro-expansion as 


This 










(IF-HEEDED (IMPERATIVB-FOR (SPACE-FOR !X !Y)) 

(STRATECY-FOR (SPACE-K1R !,X !,Y) 

(HFANIKG-OF (NOT (CLUTTERED l,Y)) 

(CODB-FOR (NOT (EXISTS 13 (WHERE (OK *3 ! ,X) 

(KOT (PROTECTH) (OH 13 !,X)))))) 
(TOR-EACH 13 (WHERE (ON !I3 1,X) 

(NOT (PROTECTED (ON !X3 !,X)))) 
(SUFFICES-FOR (NOT (WHERE (ON !,Y3 !,X) 

(NOT (PROTECTED (OH I ,Y3 !,X))))) 
(ACHIEVE (NOT (ON !,I3 !,X)»))))> 

(ADIEU 'OK)) 

Since (ACHIEVE (NOT (ON !,Y3 !,X))) is a problem already solved, this 
does it. STRATECY-FOR is special in that it sets up an interrupt 

and the problea was (ACHIEVE (ON D C)) the FOR-EACH loop to get rid of 

down on the table) control would return to STRATFCY-FOR because tho 
(SPACE-FOR D C) would becone true. 

I have not described yet how to use tho HAPHAZARD concept; I 
leave that to the next section on debugging for an exasple. Koto, 
however, that only a few new programming concepts, OODB-FOR-KOT-WHERE, 
KAY-HURT and STRATECY-FOR have been added in this section, but lots of 








III. Autoaatic Debugging 

Consider what will happen If we tell HACKER to (ACHIEVE (3-TOWER 
A n C)). He will writei 

(IP-HEEDED (IMPERATIVE-TOR (3-TOWER IX II IZ)) 

(MEANINC-GF (3-TOVBt l,X 1,1 !,Z) 

(CODE-TOR (AMD (OH !,X 1,1) (OH 1,1 1,2)) 

(PROG "AUX" ((PROTECTEDS HU)) 

(PROG (ACHIEVE (ON !,X |,I)) 

(PROTECT (OH !,X 1,1))) 

(PROG (ACHIEVE (OH 1,1 !,Z)) 

(PROTECT (OH 1,1 !,Z))) 

(UNPROTECT PROTECTEDS)))) 

(ADIEU 'OK)) 

This program has a hug! The first clause of the (CODB-POR (AND ...) ...) 
Sets A on B. The second tries to get B on C. First it tries to (CLEARTOP 
B) so B can be grasped. This forces an attespt to (PUION A TABLE) but the 
first clause protected (OH A B) so A can't be sowed. Thus we get the 
error consent from PUTON; PROTECTION VIOLATIOH (OH A B). At this point, 
HACKER is entered via a BUG routine called fros FUTON with the error 


by putting A anywhere; 







(IF-KEEDH) (IKPERATIVE-IOR (3-TOWER IX !Y SZ)) 
(HEANING-OF (3-TOWR !,X !,Y !,Z) 

(CODE-POR (AND (ON ! ,X !,Y) (ON !,Y !,Z)) 
(PROG ”AUX" ((PROTECTEDS NIL)) 

(PROG (ACHIEVE (ON l,Y !,Z)) 
(PROTECT (ON !,Y !,Z))) 

(PROG (ACHIEVE (ON !,X !,Y)) 
(PROTECT (ON !,X l,Y))) 
(UNPROTECT PROTECTEDS)))) 

(ADIEU 'OK)) 













The situation is that all blocks (A, B, and C) arc on the table 
and the probloa is: (ACHIEVE (U A B C)) where: 

(IF-tlEEDED (MEAHIHO-OF (U !'X !'I 1 'Z) 

(AND (ON !,X !,Z) (ON !,I !,Z))) 

(NOTE)) 


Tn this case the code generated is: 

(IF-NEEDED (IMPEKATIVE-FOR (U !X !Y !Z)) 

(HEANING-QF (U !,X !,Y !,Z) 

(CODE-FOR (AND (ON ! ,X !,Z) (ON !,Y !,Z)) 

(PROG "AUX" ((PROTECTEDS NIL)) 

(PROG (ACHIEVE (ON !,X !,Z)) 

(PROTECT (ON !,X !,Z))) 

(PROG (ACHIEVE (ON !,Y !,Z)) 

(PROTECT (ON !,Y !,Z))) 

(UNPROTECT PROTECTEDS)))) 

(ADIEU 'OK)) 

This code is nearly OK, tut when we execute (ACHIEVE-(ON A C)) A goes on 
the Diddle of C (a heuristic to aaxiiize stability). This blocks the 
(SPACE-FOR E C) becuase C isn't large enough to hold B with A on its 
Biddle. V.hat does HACKER do? The perfornance pro/ran is in (STRATEGY-FOE 
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strategy as (ON A C) Is protected. Since there are no other strategies 
currently coded, STRATHSY-FOR asks HACKED for help. HACKER finds another 
strategy, M-H-SPACE-P0R-2i the HAPHAZARD strategy, and finds, indeed, 
that (HAPHAZARD C) is true. This is then coded up as before as an 
alternative strategy: (fros now on I will leave out details of expansion, 
filling in with ... and cnly shoving relevant segments.) 

(STRATEGY—FOR (SPACE-FOR !,X !,Y) 

(MEANINC-OF (NOT (CLUTTERED !,Y)) ... ) 

(MEANING-OP (NOT (HAPHAZARD !,Y» ... )) 

primitives. 


(IF-NEEDEL (IMPERATIVB-POR (PACKED !X !Y)) 
(NEEDS (CLEARTOP !,X) (PACK X Y)) 

(ADIEU 'OK)) 


(IP-NEEDED (SUFFICES-FOR (NOT (BADLY-PLACED !'X I'Y)) (PACKET ! ,X !,Y)) 
(NOTE)) 

Note: STRATEDY-FOR takes any number of strategies and exhausts them in 






















liTOCKS 


The DEBUGGING knowledge appearing in this section is nc 
explicitly stated as in the proceeding sections because it is r. 
coded. A major criterion for the code is that it break up into 

programming knowledge. 



